With 	TestAll;

procedure Lab1 is
begin

   TestAll.TestAllAttributes;
   TestAll.TestAllDirect;
   TestAll.TestAllSequential;
   TestAll.TestAllText;
   TestAll.TestAllStream;

end Lab1;
